PsL Monthly 1994 September/PSL Monthly Shareware CD-ROM (September 1994).ISO/dos/communic/vote291.exe/VOTE.PPE

PCBoard Programming Language Executable | 1994-06-01 | 32KB | 1,295 lines

;------------------------------------------------------------------------------
;                                                   .ss.
;                                                   `²²'
;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
;                                    .sS²°$$$²²°"'       d²°'
;                                  .$$²  .$$'
;                                  $$$.,d$$'
;                                  `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------

    Boolean  BOOLEAN001
    Integer  INTEGER001
    Integer  INTEGER002
    Integer  INTEGER003
    Integer  INTEGER004
    Integer  INTEGER005
    Integer  INTEGER006
    Integer  INTEGER007
    Integer  INTEGER008
    Integer  INTEGER009
    Integer  INTEGER010
    Integer  INTEGER011
    Integer  INTEGER012
    Integer  INTEGER013
    Integer  TINTEGER014(1)
    Integer  INTEGER015
    Integer  INTEGER016
    Integer  INTEGER017
    Integer  TINTEGER018(99)
    Integer  INTEGER019
    Integer  INTEGER020
    Integer  INTEGER021
    Integer  INTEGER022
    Integer  INTEGER023
    Integer  INTEGER024
    Integer  INTEGER025
    Integer  INTEGER026
    Integer  INTEGER027
    Integer  INTEGER028
    Integer  INTEGER029
    Integer  INTEGER030
    Integer  INTEGER031
    Integer  INTEGER032
    Integer  INTEGER033
    Integer  INTEGER034
    Integer  INTEGER035
    Integer  INTEGER036
    Integer  INTEGER037
    Integer  INTEGER038
    Integer  INTEGER039
    Integer  INTEGER040
    Integer  TINTEGER041(1)
    Integer  INTEGER042
    Integer  INTEGER043
    Integer  INTEGER044
    Integer  INTEGER045
    Integer  INTEGER046
    Integer  INTEGER047
    Integer  INTEGER048
    Integer  INTEGER049
    Integer  INTEGER050
    Integer  INTEGER051
    Integer  INTEGER052
    Integer  INTEGER053
    Integer  INTEGER054
    String   TSTRING001(7)
    String   STRING002
    String   STRING003
    String   STRING004
    String   STRING005
    String   STRING006
    String   STRING007
    String   TSTRING008(1)
    String   STRING009
    String   TSTRING010(1)
    String   STRING011
    String   STRING012
    String   STRING013
    String   STRING014
    String   STRING015
    String   STRING016
    String   STRING017
    String   STRING018
    String   STRING019
    String   STRING020
    String   STRING021
    String   STRING022
    String   STRING023
    String   TSTRING024(1)
    String   STRING025
    String   TSTRING026(1)
    String   STRING027
    String   STRING028
    String   STRING029
    String   TSTRING030(1)
    String   STRING031
    String   STRING032
    String   STRING033
    String   STRING034
    String   TSTRING035(1)
    String   STRING036
    String   STRING037
    String   STRING038
    String   STRING039
    String   STRING040
    String   STRING041
    String   STRING042
    String   STRING043
    String   TSTRING044(27)
    String   STRING045
    String   STRING046
    Byte     BYTE001
    Byte     BYTE002

;------------------------------------------------------------------------------

    GetUser
    STRING045 = Time()
    Log "+++ Entered Voter++ at -> " + STRING045, 0
    FOpen 1, PPEPath() + PPEName() + ".CFG", 0, 0
    FDefIn 1
    For INTEGER001 = 1 To 7
        FDGet TSTRING001(INTEGER001)
        TSTRING001(INTEGER001) = RTrim(Left(TSTRING001(INTEGER001), 29), " ")
    Next
    FClose 1
    FOpen 2, PPEPath() + PPEName() + ".PRM", 0, 0
    FDefIn 2
    For INTEGER001 = 1 To 27
        FDGet TSTRING044(INTEGER001)
    Next
    FClose 2
    Redim TSTRING008, S2I(TSTRING001(1), 10)
    Redim TSTRING010, S2I(TSTRING001(1), 10)
    Redim TSTRING024, S2I(TSTRING001(1), 10)
    Redim TSTRING026, S2I(TSTRING001(1), 10)
    Redim TSTRING030, S2I(TSTRING001(1), 10)
    Redim TSTRING035, S2I(TSTRING001(1), 10)
    Redim TINTEGER014, S2I(TSTRING001(1), 10)
    Redim TINTEGER041, S2I(TSTRING001(1), 10)
    STRING013 = TSTRING001(2) + TSTRING001(3)
    STRING013 = Strip(STRING013, " ")
    For INTEGER019 = 1 To Len(STRING013)
        TINTEGER018(INTEGER019) = Asc(Mid(STRING013, INTEGER019, 1))
    Next
    INTEGER020 = 0
    For INTEGER019 = 1 To 80
        INTEGER020 = INTEGER020 + TINTEGER018(INTEGER019)
    Next
    INTEGER017 = INTEGER020 * 709
    If (AnsiOn()) Goto LABEL001
    PrintLn "Sorry, but this program requires you to have ANSI capabilities, if you"
    PrintLn "would like to use this voting door, then please type M at the main menu"
    PrintLn "this will place you in graphics mode, and allow you to use this door."
    End
    :LABEL001
    Gosub LABEL016
    StartDisp 1
    Cls
    PrintLn "                                                                         "
    PrintLn "      @X0A ╓─┐ ╥  ┬ ╥──┐ ╥  ┬ ─╥─ ╥  ┬ ╓──┐ ╥          ╓─╥─┐ ╥──┐ ╓──┐ ╥  ┬  "
    PrintLn "      @X04 ╙─┐ ║  │ ╟─┬┘ ╙╖┌┘  ║  ╙╖┌┘ ╟──┤ ║     ───    ║   ╟─   ║    ╟──┤  "
    PrintLn "      @X02╙──┘ ╙──┘ ╨ ┴   ╙┘  ─╨─  ╙┘  ╨  ┴ ╨──┘         ╨   ╨──┘ ╙──┘ ╨  ┴ o"
    PrintLn "                          @X0D■(C)94 Bill Marcy  V2.91■                     "
    PrintLn "                                  @X0BPRESENTS                             "
    PrintLn "               @X0A┌─┐    ┌─┐ ┌──────┐ ┌─────┐ ┌─────┐ ┌──────┐           "
    PrintLn "               │ │    │ │ │ ┌──┐ │ └─┐ ┌─┘ │ ┌───┘ │ ┌──┐ │           "
    PrintLn "               @X04└┐└┐  ┌┘┌┘ │ │  │ │   │ │   │ └─┐   │ └──┘ │    "
    PrintLn "               @X02 └┐└┐┌┘┌┘  │ │  │ │   │ │   │ ┌─┘   │ ┌─┐ ┌┘           "
    PrintLn "                 └┐└┘┌┘   │ └──┘ │   │ │   │ └───┐ │ │ │ └┐            "
    PrintLn "                  └──┘    └──────┘   └─┘   └─────┘ └─┘ └──┘          "
    PrintLn "                              ██┐          ██┐"
    PrintLn "                              ██│          ██│"
    PrintLn "                          ██████████┐  ██████████┐"
    PrintLn "                           └──██┌───┘      ██┌───┘"
    PrintLn "                              ██│          ██│    "
    PrintLn "                              └─┘          └─┘    "
    If (INTEGER017 == TSTRING001(4)) Then
        OpText "This program is registered to"
        AnsiPos 0, 20
        PrintLn "@X09@OPTEXT:76C@"
        OpText TSTRING001(3)
        AnsiPos 0, 21
        PrintLn "@X03@OPTEXT:76C@"
        Delay (3 * 182) / 10
    Else
        For INTEGER016 = 5 To 0 Step -1
            AnsiPos 9, 1
            PrintLn "@X0EThis @X0B", INTEGER016, "@X0E second delay is removed once this program is registered "
            Delay (1.5 * 182) / 18
        Next
        For INTEGER016 = 5 To 0 Step -1
            AnsiPos 2, 21
            PrintLn "@X0CPlease help your sysop register this program and remove this @X8B", INTEGER016, "@X0C second delay@X0F"
            Delay (1.5 * 182) / 18
        Next
    Endif
    :LABEL002
    INTEGER052 = 1
    INTEGER051 = 15
    INTEGER038 = 0
    Gosub LABEL022
    Color DefColor()
    Cls
    PrintLn "@X10┌─────────────────────────────────────────────────────────────────────────────@X19┐@X0F"
    PrintLn "@X10│··@X1EVoter++@X10···················@X1CUser Voting Area@X10······················@X1BMain Menu@X10··@X19│@X0F"
    PrintLn "@X10└@X19─────────────────────────────────────────────────────────────────────────────┘@X0F"
    PrintLn "@X10┌───────────────────────────────────@X19┐@X10┌────────────────────────────────────────@X19┐@X0F"
    PrintLn "@X10│··@X16(@X1AH@X1